home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Graphics Unleashed
/
PC Graphics Unleashed.iso
/
ch11
/
test.pi
< prev
next >
Wrap
Text File
|
1994-06-15
|
3KB
|
120 lines
//TEST.PI
include "colors.inc"
include "texture.inc"
viewpoint {
from <3, 3, -10>
at <0.0, 0.0, 0.0>
up <0.0, 1.0, 0.0>
angle 45
resolution 640,480
aspect 1.33
}
// LIGHT_SOURCE
light <0, 50, 0>
light <50, 0, -50>
light <-50, 0, -50>
//background lightgrey
define LampTop
object {
lathe 2, <0, 1, 0>, 10,
<0.210856, 0.620042, 0>,
<0.189979, 0.536534, 0>,
<0.185804, 0.478079, 0>,
<0.189979, 0.407098, 0>,
<0.210856, 0.348643, 0>,
<0.240084, 0.290188, 0>,
<0.273486, 0.231733, 0>,
<0.331942, 0.173278, 0>,
<0.411273, 0.102296, 0>,
<0.503132, 0.039666, 0>
}
define LampBottom
object {
lathe 2, <0, 1, 0>, 19,
<0.156576, 0.210856, 0>,
<0.156576, -0.0521921, 0>,
<0.202505, -0.0647182, 0>,
<0.244259, -0.0981211, 0>,
<0.25261, -0.156576, 0>,
<0.227557, -0.202505, 0>,
<0.148225, -0.219207, 0>,
<0.160752, -0.344468, 0>,
<0.169102, -0.407098, 0>,
<0.185804, -0.473904, 0>,
<0.215031, -0.544885, 0>,
<0.256785, -0.624217, 0>,
<0.331942, -0.691023, 0>,
<0.402923, -0.736952, 0>,
<0.402923, -0.782881, 0>,
<0.344468, -0.82881, 0>,
<0.273486, -0.849687, 0>,
<0.265136, -0.899791, 0>,
<0.356994, -0.929019, 0>
}
define FlowerVase
object {
lathe 2, <0, 1, 0>, 20,
<0.327766, 0.736952, 0>,
<0.210856, 0.628392, 0>,
<0.139875, 0.553236, 0>,
<0.118998, 0.482255, 0>,
<0.102296, 0.390397, 0>,
<0.0939457, 0.281837, 0>,
<0.102296, 0.189979, 0>,
<0.152401, 0.114823, 0>,
<0.244259, 0.0146138, 0>,
<0.402923, -0.131524, 0>,
<0.465553, -0.244259, 0>,
<0.453027, -0.382046, 0>,
<0.377871, -0.478079, 0>,
<0.244259, -0.544885, 0>,
<0.14405, -0.574113, 0>,
<0.135699, -0.716075, 0>,
<0.290188, -0.741127, 0>,
<0.386221, -0.770355, 0>,
<0.427975, -0.82881, 0>,
<0.394572, -0.924843, 0>
}
object {
LampTop
scale <2,2,2>
translate <0.5,2,0>
reflective_tan
}
object {
LampBottom
scale <2,2,2>
translate <0.5, 2*0.95, 0>
reflective_gold
}
object {
FlowerVase
scale <1.3,1.3,1.3>
translate <-1.5, 1.3*0.95, -2>
sapphire_agate
}
object {
sphere <2.5,0.25,-2>, .25
shiny_red
}
object {
disc <0,0,0>, <0,1,0>,5
texture {
checker reflective_grey, matte_black
}
}